home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen… 1994 February Supplement / ARPL-Feb-94-Supplement-PowerPC.iso / 3rd Party PowerPC Demo Apps / Aldus FreeHand / Aldus FreeHand 4.0 TV / Aldus FreeHand 4.0 TV.rsrc / Post_1152 < prev    next >
Encoding:
Text File  |  1994-01-25  |  636 b   |  42 lines
  1. supdict begin
  2. /dashpat [12 3] def 
  3. /lineloop 
  4. { ystart spacing ystart abs
  5. { /ycur xdf 
  6.  dashes?   
  7.  { 
  8. cnt 1 and 0 eq { dashpat 0 setdash } 
  9.  { dashpat dashpat 0 get dashpat 1 get add 2 div setdash } 
  10.  ifelse } if
  11. xstart ycur m
  12.  xstart abs ycur L
  13. stroke incrcnt
  14. } for } def
  15. end 
  16. /newhatch 
  17.  {
  18.  supdict begin  
  19.  q newinside
  20.  /dashes? xdf 
  21.  /color xdf
  22.  colorchoice  
  23.  w
  24.  /spacing xdf  
  25.  /ang2 xdf 
  26.  /angle xdf  
  27.  
  28.  
  29.  /xstart {x1 x2 add 2 div neg} bdf 
  30.  /ystart {y1 y2 add 2 div neg} bdf 
  31.  dx 2 div dy 2 div translate
  32.  q angle rotate
  33.  lineloop Q 
  34.  ang2 angle sub abs 180 ne  
  35. {
  36. ang2 rotate 
  37. /angle ang2 def 
  38. lineloop 
  39. } if
  40.  Q end
  41.  } def